home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 501_600 / DISK0562 / DISK0562.ZIP / SOFT4HAM.ARC / MBCKLSTG.2 < prev    next >
Text File  |  1985-09-28  |  1KB  |  40 lines
  1. 10 REM MULTIBAND CKLSTRD VER 820330
  2. 20 ERRSET 9060,E1,E2
  3. 30 INPUT"Name of CHECK LIST file ? ",L1$\IF L1$=""THEN 30
  4. 40 INPUT"Which drive is it on ? ",D1 \ IF D1<1ORD1>4 THEN40
  5. 50 D1$=STR$(D1) \ D1$=D1$(2,2)
  6. 60 INPUT"Which output device (0-7) ? ",Z\IFZ>7 OR Z<0 THEN60
  7. 70 OPEN #1,L1$+","+D1$
  8. 80 I=0
  9. 90 PRINT#Z,"Check list ......",TAB(20),L1$
  10. 100 FOR J=0 TO 5
  11. 110 READ #1,C$
  12. 120 IF LEN (C$)<3 THEN EXIT230
  13. 130 IF C$(1,3)="-*-"THEN EXIT 230
  14. 132 IF C$(1,5)="BAND=" THENJ=6
  15. 136 IF C$(1,5)="TOTAL" THENJ=6
  16. 140 IF C$=C1$THEN 150 ELSE 155
  17. 150 PRINT#Z, TAB(J*10),"******", \ GOTO 180
  18. 155 IF J<6THEN160ELSE PRINT#Z\PRINT #Z,C$\GOTO200
  19. 160 PRINT#Z, TAB(J*10),C$,
  20. 170 C1$=C$
  21. 180 NEXT
  22. 190 PRINT#Z
  23. 200 I=I+1 \ IF I<60 THEN 100
  24. 210 REM FORM FEED
  25. 220 FOR I=1 TO 5 \ PRINT #Z \ NEXT \ GOTO 80
  26. 230 PRINT#Z
  27. 240 CLOSE#1
  28. 9000 FOR I = 1 TO 4
  29. 9010 IF FILE("SYSTEM,"+STR$(I))=2 THEN EXIT 9030
  30. 9020 NEXT \ GOTO 9040
  31. 9030 CHAIN "SYSTEM,"+STR$(I)
  32. 9040 PRINT"put a system disc in any drive, then hit 'RETURN'"
  33. 9050 INPUT" ",A$ \ GOTO 9000
  34. 9060 ERRSET 9060,E1,E2
  35. 9070 IF E2=15THEN9000
  36. 9080 IFE1=9010THENIFI<1ORI>4THEN9040ELSE9020
  37. 9090 IFE2<>7THEN9100ELSEPRINT"FILE ERROR"\GOTO9000
  38. 9100 IFE2<>8THEN9110ELSEPRINT"HARD DISC ERROR"\GOTO9000
  39. 9110 PRINT"ERROR ",E2," AT LINE ",E1\GOTO9000
  40.